/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / DATABASE / ALBUMS / !Albums_Strings

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 41 f4 20 3e 53 | 74 72 69 6e 67 73 20 46 |...A. >S|trings F|
|00000010| 75 6e 63 74 69 6f 6e 73 | 20 20 20 20 20 20 20 20 |unctions|        |
|00000020| 20 20 20 20 28 43 61 6c | 6c 20 50 52 4f 43 73 74 |    (Cal|l PROCst|
|00000030| 48 65 6c 70 20 66 6f 72 | 20 64 65 74 61 69 6c 73 |Help for| details|
|00000040| 29 0d 00 14 04 0d 00 1e | 86 2a 45 72 72 6f 72 20 |).......|.*Error |
|00000050| 31 20 53 74 72 69 6e 67 | 73 20 76 31 2e 31 35 3a |1 String|s v1.15:|
|00000060| 20 54 68 69 73 20 69 73 | 20 61 20 4c 69 62 72 61 | This is| a Libra|
|00000070| 72 79 2e 20 44 6f 20 6e | 6f 74 20 75 73 65 20 2a |ry. Do n|ot use *|
|00000080| 52 75 6e 2c 20 62 75 74 | 20 75 73 65 20 49 4e 53 |Run, but| use INS|
|00000090| 54 41 4c 4c 2c 20 4c 49 | 42 52 41 52 59 20 6f 72 |TALL, LI|BRARY or|
|000000a0| 20 4f 56 45 52 4c 41 59 | 20 66 72 6f 6d 20 42 41 | OVERLAY| from BA|
|000000b0| 53 49 43 2e 20 20 28 43 | 29 20 31 39 39 32 20 41 |SIC.  (C|) 1992 A|
|000000c0| 6c 61 6e 20 44 6f 6e 6f | 76 61 6e 0d 00 28 04 0d |lan Dono|van..(..|
|000000d0| 00 32 0d dd 20 f2 73 74 | 48 65 6c 70 0d 00 3c 06 |.2.. .st|Help..<.|
|000000e0| 20 db 0d 00 46 48 20 f1 | 20 22 53 74 72 69 6e 67 | ...FH .| "String|
|000000f0| 20 46 75 6e 63 74 69 6f | 6e 73 20 4c 69 62 72 61 | Functio|ns Libra|
|00000100| 72 79 20 20 20 a9 20 31 | 39 39 32 20 41 6c 61 6e |ry   . 1|992 Alan|
|00000110| 20 44 6f 6e 6f 76 61 6e | 20 20 76 31 2e 31 35 20 | Donovan|  v1.15 |
|00000120| 20 31 33 2d 31 32 2d 39 | 32 22 0d 00 50 1c 20 f1 | 13-12-9|2"..P. .|
|00000130| 20 22 46 75 6e 63 74 69 | 6f 6e 73 20 50 72 6f 76 | "Functi|ons Prov|
|00000140| 69 64 65 64 3a 22 0d 00 | 5a 06 20 f1 0d 00 64 3a |ided:"..|Z. ...d:|
|00000150| 20 f1 20 22 46 4e 69 6e | 70 75 74 73 74 72 28 29 | . "FNin|putstr()|
|00000160| 20 20 20 43 61 72 65 74 | 2d 73 74 79 6c 65 20 49 |   Caret|-style I|
|00000170| 6e 70 75 74 20 72 65 74 | 75 72 6e 69 6e 67 20 73 |nput ret|urning s|
|00000180| 74 72 69 6e 67 22 0d 00 | 6e 18 20 f1 20 22 50 61 |tring"..|n. . "Pa|
|00000190| 72 61 6d 65 74 65 72 73 | 20 61 72 65 3a 22 0d 00 |rameters| are:"..|
|000001a0| 78 4b 20 f1 20 22 50 61 | 72 74 69 61 6c 20 53 74 |xK . "Pa|rtial St|
|000001b0| 72 69 6e 67 2c 20 78 2c | 20 79 20 63 6f 2d 6f 72 |ring, x,| y co-or|
|000001c0| 64 73 2c 20 46 69 65 6c | 64 20 4c 65 6e 67 74 68 |ds, Fiel|d Length|
|000001d0| 2c 20 4c 65 74 74 65 72 | 20 63 6f 6c 2c 20 43 75 |, Letter| col, Cu|
|000001e0| 72 73 6f 72 20 63 6f 6c | 22 0d 00 82 06 20 f1 0d |rsor col|".... ..|
|000001f0| 00 8c 45 20 f1 20 22 46 | 4e 69 6e 70 75 74 6e 6f |..E . "F|Ninputno|
|00000200| 28 29 20 20 20 43 61 72 | 65 74 2d 73 74 79 6c 65 |()   Car|et-style|
|00000210| 20 49 6e 70 75 74 20 72 | 65 74 75 72 6e 69 6e 67 | Input r|eturning|
|00000220| 20 6a 75 73 74 20 6e 75 | 6d 62 65 72 20 73 74 72 | just nu|mber str|
|00000230| 69 6e 67 22 0d 00 96 18 | 20 f1 20 22 50 61 72 61 |ing"....| . "Para|
|00000240| 6d 65 74 65 72 73 20 61 | 72 65 3a 22 0d 00 a0 4b |meters a|re:"...K|
|00000250| 20 f1 20 22 50 61 72 74 | 69 61 6c 20 53 74 72 69 | . "Part|ial Stri|
|00000260| 6e 67 2c 20 78 2c 20 79 | 20 63 6f 2d 6f 72 64 73 |ng, x, y| co-ords|
|00000270| 2c 20 46 69 65 6c 64 20 | 4c 65 6e 67 74 68 2c 20 |, Field |Length, |
|00000280| 4c 65 74 74 65 72 20 63 | 6f 6c 2c 20 43 75 72 73 |Letter c|ol, Curs|
|00000290| 6f 72 20 63 6f 6c 22 0d | 00 aa 05 e1 0d 00 b4 04 |or col".|........|
|000002a0| 0d 00 be 29 dd 20 a4 69 | 6e 70 75 74 73 74 72 28 |...). .i|nputstr(|
|000002b0| 70 72 65 73 24 2c 46 58 | 2c 46 59 2c 4d 4c 2c 4c |pres$,FX|,FY,ML,L|
|000002c0| 43 6f 6c 2c 43 43 6f 6c | 29 0d 00 c8 0d 20 c8 97 |Col,CCol|).... ..|
|000002d0| 20 58 2c 59 2c 42 0d 00 | d2 09 20 c8 95 20 42 0d | X,Y,B..|.. .. B.|
|000002e0| 00 dc 0e 20 20 c8 97 20 | 58 2c 59 2c 42 0d 00 e6 |...  .. |X,Y,B...|
|000002f0| 06 20 ce 0d 00 f0 0c 20 | 2a 46 58 20 34 2c 31 0d |. ..... |*FX 4,1.|
|00000300| 00 fa 14 20 f1 20 8a 46 | 58 2c 46 59 29 3b 89 28 |... . .F|X,FY);.(|
|00000310| 4d 4c 29 0d 01 04 1b 20 | e7 20 70 72 65 73 24 3d |ML).... |. pres$=|
|00000320| 22 22 20 8c 20 70 72 65 | 73 24 3d 22 20 22 0d 01 |"" . pre|s$=" "..|
|00000330| 0e 14 20 61 6c 6f 6e 67 | 25 3d a9 28 70 72 65 73 |.. along|%=.(pres|
|00000340| 24 29 0d 01 18 06 20 87 | 0d 01 22 06 20 f5 0d 01 |$).... .|..". ...|
|00000350| 2c 0c 20 20 fb 20 4c 43 | 6f 6c 0d 01 36 15 20 20 |,.  . LC|ol..6.  |
|00000360| f1 20 8a 46 58 2c 46 59 | 29 3b 70 72 65 73 24 0d |. .FX,FY|);pres$.|
|00000370| 01 40 0c 20 20 fb 20 43 | 43 6f 6c 0d 01 4a 1c 20 |.@.  . C|Col..J. |
|00000380| 20 63 68 61 72 24 3d c1 | 70 72 65 73 24 2c 61 6c | char$=.|pres$,al|
|00000390| 6f 6e 67 25 2c 31 29 0d | 01 54 1d 20 20 e7 20 63 |ong%,1).|.T.  . c|
|000003a0| 68 61 72 24 3d 22 20 22 | 20 8c 20 63 68 61 72 24 |har$=" "| . char$|
|000003b0| 3d 22 5f 22 0d 01 5e 29 | 20 20 e7 20 61 6c 6f 6e |="_"..^)|  . alon|
|000003c0| 67 25 3e 30 20 f1 20 8a | 46 58 2b 61 6c 6f 6e 67 |g%>0 . .|FX+along|
|000003d0| 25 2d 31 2c 46 59 29 3b | 63 68 61 72 24 0d 01 68 |%-1,FY);|char$..h|
|000003e0| 07 20 20 f5 0d 01 72 0f | 20 20 20 4b 45 59 3d a6 |.  ...r.|   KEY=.|
|000003f0| 28 31 29 0d 01 7c 0f 20 | 20 20 c8 97 20 58 2c 59 |(1)..|. |  .. X,Y|
|00000400| 2c 42 0d 01 86 15 20 20 | fd 20 4b 45 59 3c 3e 2d |,B....  |. KEY<>-|
|00000410| 31 20 84 20 42 3e 30 0d | 01 90 2a 20 20 e7 20 4b |1 . B>0.|..*  . K|
|00000420| 45 59 3e 33 31 20 80 20 | 4b 45 59 3c 31 32 37 20 |EY>31 . |KEY<127 |
|00000430| 80 20 c2 70 72 65 73 24 | 2c 31 29 3d 22 20 22 20 |. .pres$|,1)=" " |
|00000440| 8c 0d 01 9a 3e 20 20 20 | 70 72 65 73 24 3d c0 70 |....>   |pres$=.p|
|00000450| 72 65 73 24 2c 61 6c 6f | 6e 67 25 2d 31 29 2b bd |res$,alo|ng%-1)+.|
|00000460| 28 4b 45 59 29 2b c2 70 | 72 65 73 24 2c a9 28 70 |(KEY)+.p|res$,.(p|
|00000470| 72 65 73 24 29 2d 61 6c | 6f 6e 67 25 2b 31 29 0d |res$)-al|ong%+1).|
|00000480| 01 a4 10 20 20 20 61 6c | 6f 6e 67 25 2b 3d 31 0d |...   al|ong%+=1.|
|00000490| 01 ae 07 20 20 cd 0d 01 | b8 1c 20 20 e7 20 4b 45 |...  ...|..  . KE|
|000004a0| 59 3d 31 33 36 20 80 20 | 61 6c 6f 6e 67 25 3e 31 |Y=136 . |along%>1|
|000004b0| 20 8c 0d 01 c2 10 20 20 | 20 61 6c 6f 6e 67 25 2d | .....  | along%-|
|000004c0| 3d 31 0d 01 cc 07 20 20 | cd 0d 01 d6 1d 20 20 e7 |=1....  |.....  .|
|000004d0| 20 4b 45 59 3d 31 33 37 | 20 80 20 61 6c 6f 6e 67 | KEY=137| . along|
|000004e0| 25 3c 4d 4c 20 8c 0d 01 | e0 10 20 20 20 61 6c 6f |%<ML ...|..   alo|
|000004f0| 6e 67 25 2b 3d 31 0d 01 | ea 07 20 20 cd 0d 01 f4 |ng%+=1..|..  ....|
|00000500| 10 20 20 e7 20 4b 45 59 | 3d 32 31 20 8c 0d 01 fe |.  . KEY|=21 ....|
|00000510| 0f 20 20 20 70 72 65 73 | 24 3d 22 22 0d 02 08 0f |.   pres|$=""....|
|00000520| 20 20 20 61 6c 6f 6e 67 | 25 3d 31 0d 02 12 07 20 |   along|%=1.... |
|00000530| 20 cd 0d 02 1c 26 20 20 | e7 20 28 4b 45 59 3d 38 | ....&  |. (KEY=8|
|00000540| 20 84 20 4b 45 59 3d 31 | 32 37 29 20 80 20 61 6c | . KEY=1|27) . al|
|00000550| 6f 6e 67 25 3e 31 20 8c | 0d 02 26 37 20 20 20 70 |ong%>1 .|..&7   p|
|00000560| 72 65 73 24 3d c0 70 72 | 65 73 24 2c 61 6c 6f 6e |res$=.pr|es$,alon|
|00000570| 67 25 2d 32 29 2b c2 70 | 72 65 73 24 2c a9 28 70 |g%-2)+.p|res$,.(p|
|00000580| 72 65 73 24 29 2d 61 6c | 6f 6e 67 25 2b 31 29 0d |res$)-al|ong%+1).|
|00000590| 02 30 10 20 20 20 61 6c | 6f 6e 67 25 2d 3d 31 0d |.0.   al|ong%-=1.|
|000005a0| 02 3a 07 20 20 cd 0d 02 | 44 11 20 20 e7 20 4b 45 |.:.  ...|D.  . KE|
|000005b0| 59 3d 31 33 35 20 8c 0d | 02 4e 35 20 20 20 70 72 |Y=135 ..|.N5   pr|
|000005c0| 65 73 24 3d c0 70 72 65 | 73 24 2c 61 6c 6f 6e 67 |es$=.pre|s$,along|
|000005d0| 25 2d 31 29 2b c2 70 72 | 65 73 24 2c a9 28 70 72 |%-1)+.pr|es$,.(pr|
|000005e0| 65 73 24 29 2d 61 6c 6f | 6e 67 25 29 0d 02 58 07 |es$)-alo|ng%)..X.|
|000005f0| 20 20 cd 0d 02 62 63 20 | 20 70 72 65 73 24 3d c0 |  ...bc | pres$=.|
|00000600| 70 72 65 73 24 2b 22 20 | 20 20 20 20 20 20 20 20 |pres$+" |        |
|00000610| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000620| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000630| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000650| 20 22 2c 4d 4c 29 0d 02 | 6c 21 20 20 e7 20 61 6c | ",ML)..|l!  . al|
|00000660| 6f 6e 67 25 3e 4d 4c 2b | 31 20 8c 20 61 6c 6f 6e |ong%>ML+|1 . alon|
|00000670| 67 25 3d 4d 4c 2b 31 0d | 02 76 13 20 fd 20 4b 45 |g%=ML+1.|.v. . KE|
|00000680| 59 3d 31 33 20 84 20 42 | 3e 30 0d 02 80 15 20 c8 |Y=13 . B|>0.... .|
|00000690| 95 20 c2 70 72 65 73 24 | 2c 31 29 3d 22 20 22 0d |. .pres$|,1)=" ".|
|000006a0| 02 8a 1e 20 20 70 72 65 | 73 24 3d c0 70 72 65 73 |...  pre|s$=.pres|
|000006b0| 24 2c a9 28 70 72 65 73 | 24 29 2d 31 29 0d 02 94 |$,.(pres|$)-1)...|
|000006c0| 06 20 ce 0d 02 9e 0c 20 | 2a 46 58 20 34 2c 30 0d |. ..... |*FX 4,0.|
|000006d0| 02 a8 0a 3d 70 72 65 73 | 24 0d 02 b2 04 0d 02 bc |...=pres|$.......|
|000006e0| 04 0d 02 c6 28 dd 20 a4 | 69 6e 70 75 74 6e 6f 28 |....(. .|inputno(|
|000006f0| 70 72 65 73 24 2c 46 58 | 2c 46 59 2c 4d 4c 2c 4c |pres$,FX|,FY,ML,L|
|00000700| 43 6f 6c 2c 43 43 6f 6c | 29 0d 02 d0 0c 20 2a 46 |Col,CCol|).... *F|
|00000710| 58 20 34 2c 31 0d 02 da | 14 20 f1 20 8a 46 58 2c |X 4,1...|. . .FX,|
|00000720| 46 59 29 3b 89 28 4d 4c | 29 0d 02 e4 1b 20 e7 20 |FY);.(ML|).... . |
|00000730| 70 72 65 73 24 3d 22 22 | 20 8c 20 70 72 65 73 24 |pres$=""| . pres$|
|00000740| 3d 22 20 22 0d 02 ee 14 | 20 61 6c 6f 6e 67 25 3d |=" "....| along%=|
|00000750| a9 28 70 72 65 73 24 29 | 0d 02 f8 06 20 87 0d 03 |.(pres$)|.... ...|
|00000760| 02 06 20 f5 0d 03 0c 0c | 20 20 fb 20 4c 43 6f 6c |.. .....|  . LCol|
|00000770| 0d 03 16 15 20 20 f1 20 | 8a 46 58 2c 46 59 29 3b |....  . |.FX,FY);|
|00000780| 70 72 65 73 24 0d 03 20 | 0c 20 20 fb 20 43 43 6f |pres$.. |.  . CCo|
|00000790| 6c 0d 03 2a 1c 20 20 63 | 68 61 72 24 3d c1 70 72 |l..*.  c|har$=.pr|
|000007a0| 65 73 24 2c 61 6c 6f 6e | 67 25 2c 31 29 0d 03 34 |es$,alon|g%,1)..4|
|000007b0| 1d 20 20 e7 20 63 68 61 | 72 24 3d 22 20 22 20 8c |.  . cha|r$=" " .|
|000007c0| 20 63 68 61 72 24 3d 22 | 5f 22 0d 03 3e 29 20 20 | char$="|_"..>)  |
|000007d0| e7 20 61 6c 6f 6e 67 25 | 3e 30 20 f1 20 8a 46 58 |. along%|>0 . .FX|
|000007e0| 2b 61 6c 6f 6e 67 25 2d | 31 2c 46 59 29 3b 63 68 |+along%-|1,FY);ch|
|000007f0| 61 72 24 0d 03 48 0b 20 | 20 4b 45 59 3d a5 0d 03 |ar$..H. | KEY=...|
|00000800| 52 33 20 20 e7 20 a7 22 | 31 32 33 34 35 36 37 38 |R3  . ."|12345678|
|00000810| 39 30 2e 2d 22 2c bd 28 | 4b 45 59 29 29 3e 30 20 |90.-",.(|KEY))>0 |
|00000820| 80 20 c2 70 72 65 73 24 | 2c 31 29 3d 22 20 22 20 |. .pres$|,1)=" " |
|00000830| 8c 0d 03 5c 3e 20 20 20 | 70 72 65 73 24 3d c0 70 |...\>   |pres$=.p|
|00000840| 72 65 73 24 2c 61 6c 6f | 6e 67 25 2d 31 29 2b bd |res$,alo|ng%-1)+.|
|00000850| 28 4b 45 59 29 2b c2 70 | 72 65 73 24 2c a9 28 70 |(KEY)+.p|res$,.(p|
|00000860| 72 65 73 24 29 2d 61 6c | 6f 6e 67 25 2b 31 29 0d |res$)-al|ong%+1).|
|00000870| 03 66 10 20 20 20 61 6c | 6f 6e 67 25 2b 3d 31 0d |.f.   al|ong%+=1.|
|00000880| 03 70 07 20 20 cd 0d 03 | 7a 1c 20 20 e7 20 4b 45 |.p.  ...|z.  . KE|
|00000890| 59 3d 31 33 36 20 80 20 | 61 6c 6f 6e 67 25 3e 31 |Y=136 . |along%>1|
|000008a0| 20 8c 0d 03 84 10 20 20 | 20 61 6c 6f 6e 67 25 2d | .....  | along%-|
|000008b0| 3d 31 0d 03 8e 07 20 20 | cd 0d 03 98 1d 20 20 e7 |=1....  |.....  .|
|000008c0| 20 4b 45 59 3d 31 33 37 | 20 80 20 61 6c 6f 6e 67 | KEY=137| . along|
|000008d0| 25 3c 4d 4c 20 8c 0d 03 | a2 10 20 20 20 61 6c 6f |%<ML ...|..   alo|
|000008e0| 6e 67 25 2b 3d 31 0d 03 | ac 07 20 20 cd 0d 03 b6 |ng%+=1..|..  ....|
|000008f0| 10 20 20 e7 20 4b 45 59 | 3d 32 31 20 8c 0d 03 c0 |.  . KEY|=21 ....|
|00000900| 0f 20 20 20 70 72 65 73 | 24 3d 22 22 0d 03 ca 0f |.   pres|$=""....|
|00000910| 20 20 20 61 6c 6f 6e 67 | 25 3d 31 0d 03 d4 07 20 |   along|%=1.... |
|00000920| 20 cd 0d 03 de 26 20 20 | e7 20 28 4b 45 59 3d 38 | ....&  |. (KEY=8|
|00000930| 20 84 20 4b 45 59 3d 31 | 32 37 29 20 80 20 61 6c | . KEY=1|27) . al|
|00000940| 6f 6e 67 25 3e 31 20 8c | 0d 03 e8 37 20 20 20 70 |ong%>1 .|...7   p|
|00000950| 72 65 73 24 3d c0 70 72 | 65 73 24 2c 61 6c 6f 6e |res$=.pr|es$,alon|
|00000960| 67 25 2d 32 29 2b c2 70 | 72 65 73 24 2c a9 28 70 |g%-2)+.p|res$,.(p|
|00000970| 72 65 73 24 29 2d 61 6c | 6f 6e 67 25 2b 31 29 0d |res$)-al|ong%+1).|
|00000980| 03 f2 10 20 20 20 61 6c | 6f 6e 67 25 2d 3d 31 0d |...   al|ong%-=1.|
|00000990| 03 fc 07 20 20 cd 0d 04 | 06 11 20 20 e7 20 4b 45 |...  ...|..  . KE|
|000009a0| 59 3d 31 33 35 20 8c 0d | 04 10 35 20 20 20 70 72 |Y=135 ..|..5   pr|
|000009b0| 65 73 24 3d c0 70 72 65 | 73 24 2c 61 6c 6f 6e 67 |es$=.pre|s$,along|
|000009c0| 25 2d 31 29 2b c2 70 72 | 65 73 24 2c a9 28 70 72 |%-1)+.pr|es$,.(pr|
|000009d0| 65 73 24 29 2d 61 6c 6f | 6e 67 25 29 0d 04 1a 07 |es$)-alo|ng%)....|
|000009e0| 20 20 cd 0d 04 24 63 20 | 20 70 72 65 73 24 3d c0 |  ...$c | pres$=.|
|000009f0| 70 72 65 73 24 2b 22 20 | 20 20 20 20 20 20 20 20 |pres$+" |        |
|00000a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000a40| 20 22 2c 4d 4c 29 0d 04 | 2e 21 20 20 e7 20 61 6c | ",ML)..|.!  . al|
|00000a50| 6f 6e 67 25 3e 4d 4c 2b | 31 20 8c 20 61 6c 6f 6e |ong%>ML+|1 . alon|
|00000a60| 67 25 3d 4d 4c 2b 31 0d | 04 38 0e 20 20 c8 97 20 |g%=ML+1.|.8.  .. |
|00000a70| 58 2c 59 2c 42 0d 04 42 | 13 20 fd 20 4b 45 59 3d |X,Y,B..B|. . KEY=|
|00000a80| 31 33 20 84 20 42 3e 30 | 0d 04 4c 15 20 c8 95 20 |13 . B>0|..L. .. |
|00000a90| c2 70 72 65 73 24 2c 31 | 29 3d 22 20 22 0d 04 56 |.pres$,1|)=" "..V|
|00000aa0| 1e 20 20 70 72 65 73 24 | 3d c0 70 72 65 73 24 2c |.  pres$|=.pres$,|
|00000ab0| a9 28 70 72 65 73 24 29 | 2d 31 29 0d 04 60 06 20 |.(pres$)|-1)..`. |
|00000ac0| ce 0d 04 6a 0a 20 63 6f | 25 3d 30 0d 04 74 06 20 |...j. co|%=0..t. |
|00000ad0| f5 0d 04 7e 0c 20 20 63 | 6f 25 2b 3d 31 0d 04 88 |...~.  c|o%+=1...|
|00000ae0| 16 20 20 49 24 3d c1 70 | 72 65 73 24 2c 63 6f 25 |.  I$=.p|res$,co%|
|00000af0| 2c 31 29 0d 04 92 1f 20 | 20 e7 20 a7 22 31 32 33 |,1).... | . ."123|
|00000b00| 34 35 36 37 38 39 30 2e | 2d 22 2c 49 24 29 3d 30 |4567890.|-",I$)=0|
|00000b10| 20 8c 0d 04 9c 2f 20 20 | 20 70 72 65 73 24 3d c0 | ..../  | pres$=.|
|00000b20| 70 72 65 73 24 2c 63 6f | 25 2d 31 29 2b c2 70 72 |pres$,co|%-1)+.pr|
|00000b30| 65 73 24 2c a9 28 70 72 | 65 73 24 29 2d 63 6f 25 |es$,.(pr|es$)-co%|
|00000b40| 29 0d 04 a6 0d 20 20 20 | 63 6f 25 2d 3d 31 0d 04 |)....   |co%-=1..|
|00000b50| b0 07 20 20 cd 0d 04 ba | 1e 20 fd 20 63 6f 25 3d |..  ....|. . co%=|
|00000b60| a9 28 70 72 65 73 24 29 | 20 84 20 70 72 65 73 24 |.(pres$)| . pres$|
|00000b70| 3d 22 22 0d 04 c4 1b 20 | e7 20 70 72 65 73 24 3d |="".... |. pres$=|
|00000b80| 22 22 20 8c 20 70 72 65 | 73 24 3d 22 30 22 0d 04 |"" . pre|s$="0"..|
|00000b90| ce 0c 20 2a 46 58 20 34 | 2c 30 0d 04 d8 0a 3d 70 |.. *FX 4|,0....=p|
|00000ba0| 72 65 73 24 0d ff       |                         |res$..  |        |
+--------+-------------------------+-------------------------+--------+--------+